home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMIBEST1.ADF / AmigaBasicStuff / BasicGadgets / Listing2 < prev    next >
Text File  |  1987-07-22  |  526b  |  20 lines
  1. ' Listing #2
  2. ' Part 2 of 4, Amiga Basic gadget subprograms
  3. ' Bryan D. Catley, September 1986
  4. '
  5. SUB DrawGdgts (Ga%,Gb%,T1(),T2$()) STATIC
  6. FOR n=Ga% TO Gb%
  7.   x1=T1(n,0):y1=T1(n,1):x2=x1+T1(n,2):y2=y1+T1(n,3)
  8.   bg=T1(n,4):fg=T1(n,5):bo=T1(n,6)
  9.   LINE(x1,y1)-(x2,y2),bg,bf:LINE(x1,y1)-(x2,y2),fg,b
  10.   IF bo>-1 THEN
  11.     LINE(x1+2,y1+2)-(x2-2,y2-2),fg,b
  12.     LINE(x2+1,y1+1)-(x2+1,y2+1),bo
  13.     LINE(x2+1,y2+1)-(x1+1,y2+1),bo
  14.     COLOR fg,bg:row%=INT(y1/8+2):col%=INT(x1/8+2)
  15.     LOCATE row%,col%:PRINT T2$(n)
  16.   END IF
  17. NEXT n
  18. END SUB
  19.  
  20.